extern int slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau);
/*:ref: snrm2_ 6 3 4 6 4 */
/*:ref: slapy2_ 6 2 6 6 */
/*:ref: slamch_ 6 2 13 124 */
/*:ref: sscal_ 14 4 4 6 6 4 */
